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UANDO una empresa 
decide implantar un 
sistema informático 
es necesario que rea- 
lice un estudio pro- 
fundo sobre sus nece- 
sidades y posibilida- 
des. Una vez hecho 


dicho estudio se elige el sistema, es de- 
cir, el ordenador más indicado junto con 
sus periféricos, paquetes de software y 
demás material. Una vez puestos todos 
los medios comienza la mecanización de 
«trabajos». 


FICHERO 
MAESTRO 


A Representación de las tareas a realizar en 
un proyecto determinado. 


Un proyecto informático, no necesaria- 
mente muy grande, comprende diversas 
tareas que, aunque no son fielmente se- 


INFORMATICA BASICA 


FASES DE LA MECANIZACION 


guidas por todos los analistas, suelen 
agruparse en las siguientes fases: 


— Estudio de viabilidad. 

— Análisis funcional. 

— Análisis orgánico. 

— Programación. 

— Instalación y explotación. 


Existen, como en todo, detractores de 
la realización de los análisis informáticos 
debido a la cantidad de pasos interme- 
dios y controles que se realizan, sin em- 
bargo, teniendo en cuenta la compleji- 
dad que suele conllevar un proyecto in- 
formático, el «tiempo perdido» en dichos 
controles asegurarán los objetivos y re- 
ducirán los errores de forma bastante efi- 
caz. 

Todas estas fases deben seguir un or- 
den secuencial, ya que cada una se 
basa en la anterior, resultando que en al- 
gunos casos sólo es necesario realizar 
una traducción de alguna fase realizada 
previamente. 

Aunque todas las etapas son igualmen- 
te importantes, en las que más tiempo se 
invierte, a la hora de elaborar un proyec- 
to informático, son las de diseño (análisis 
orgánico) y programación. 

Todas y cada una de estas fases deben 
ir acompañadas de una buena docu- 
mentación en la que se especifique cla- 
ramente cuáles son sus objetivos y las 
herramientas utilizadas, teniendo en 
cuenta que el proyecto lo van a realizar 
distintos equipos de personal informático 
y no debe darse pie a que surjan distin- 
tas interpretaciones que hagan fracasar 
los resultados. 


DISEÑO 


ANALISIS 
FUNCIONAL 


tiempo invertido en cada una de las fases 


[A Representación de las proporciones del 
de un proyecto. 


O Estudio de la viabilidad 


En esta primera fase se estudia si el pro- 
yecto objeto de la informatización pue- 


problema elegido 


lA Fase de especificación. 


' Análisis funcional 


Comienza con la recogida de informa- 
ciones: qué es lo que se desea obtener 
como resultado y a partir de qué. 

Es necesario, en este punto, que el 
usuario especifique exactamente las ca- 
racterísticas de la aplicación que requie- 
re. El analista se encargará de ver cuáles 


de ser adaptado al ordenador o no. Se 
realiza un estudio detallado del costo de 
la mecanización, a nivel económico, de 
tiempo y de personal y se prevén los po- 
sibles cambios en la estructura adminis- 
trativa. 


Los resultados en esta fase serán deci- 
sivos para afrontar su desarrollo o aban- 
donar el proyecto, ya que ofrecerán los 
datos que determinen su conveniencia y 
el costo de la mecanización, además de 
fijar la fecha en la que la mecanización 
puede ser finalizada. 


El estudio de los costos y beneficios se 
debe centrar en dos puntos de vista: físi- 
co-lógico y físico. 

El físico-lógico se refiere al sistema ope- 
rativo, lenguajes de programación, ruti- 
nas de utilidad, etc. 

El estudio físico sería el relativo a la ca- 
pacidad de memoria central y secunda- 
ria, tipo de memoria auxiliar, tipos de ter- 
minales, cantidad de terminales, etc. 


funcional 


económico 


Requerimiento 


de ejecución 


Condiciones 


de mantenl- 
miento 


Suposiciones 


Equipo de ordenador 


Lenguaje elegido 


de estas informaciones recibidas del 
usuario se deben utilizar en el proyecto y 
cuáles se pueden eliminar. 

Una vez recogidos los datos se proce- 
de a un análisis detallado de los mismos, 
tanto de forma cualitativa como cuanti- 
tativa. 

Toda la labor a realizar se plasma en un 
lenguaje coloquial, sin demasiados tec- 
nicismos. 
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' Análisis orgánico 


Esta es la fase de diseño. Este punto del 
proyecto consiste en hacer una «traduc- 
ción» de la especificación funcional. 

Se trata de buscar el tipo de programas 
y módulos más indicados para el caso. 
Se estudian los procesos que han de 
efectuarse para que mediante la infor- 
mación de entrada y ficheros de datos 
especificados en la fase anterior se pue- 
dan proporcionar los resultados pedidos. 


ENTRADAS: 
SALIDAS 


SOPORTES 
( A Fase de diseño. 


Los recursos tecnológicos son de dos ti- 
pos: informáticos y humanos. 
El diseño tiene tres fases: 


— Diseño de la aplicación. 
— Diseño de las cadenas. 
— Diseño de los programas. 


En cáda una de estas fases se conside- 
ra incluida la codificación y prueba de 
partes ya diseñadas. 


[IM Programación 


Es en esta fase cuando se traducen al 
lenguaje de programación elegido to- 
das las especificaciones de las anterio- 
res etapas. 

La programación se suele realizar por 
pasos, es decir, no se hace un único pro- 
grama, sino varios, comenzando por los 
más sencillos, que se van probando y 
combinando luego en grupos más com- 
plejos. Por tanto, esta agrupación se co- 


Esta es labor del diseñador del sistema 
que utiliza, para realizarla, diversas téc- 
nicas, como son los seudocódigos (téc- 
nicas seminarrativas para describir deta- 
ladamente las operaciones a realizar), 
organigramas y tablas de decisión. 

En el diseño tecnológico se trata de de- 
terminar los recursos, de entre los elegi- 
dos en el plan de mecanización, que ha- 
brán de utilizarse para conseguir que el 
sistema trabaje como se pretende. 


Especificación tuncio- 
nal del sistema. 


Estructura del siste- 
ma. 


Especificación interna 
de cada módulo. 


Funcional 


Criterios de moderni- 
zación 
Por recursos 


Pseudocódigos. 


Diseñador (progra- 
mador). 


noce con el nombre de «consolidación». 

Por supuesto, ésta es labor de los pro- 
gramadores, que finalizará una vez pro- 
bado todo el sistema, emulando el fun- 


cionamiento real. 


ENTRADAS 


BLOQUE 
DE 
TRATAMIENTO 
TRANSFORMACION 
[o] 
SUBPROGRAMAS 


¿Y E 


[A Simbolos utilizados en los organigramas. 


» 


Si se producen errores no se podrá pa- 
sar a la fase de instalación hasta no ha- 
ber corregido todos. En la fase de prue- 
ba de los programas se habra prepara- 
do un juego de ensayo (conjunto de da- 
tos de entrada que cubre todas las posi- 
bilidades), mediante el cual es posible 
detectar todos los errores lógicos del 
programa. 


Instalación y explotación 
El nuevo sistema, una vez probado, se 
instala, pero generalmente no de forma 


definitiva. Suele haber un período de 
tiempo de prueba en el que trabajan «en 


EN 
Ea: 


e 


Z 


[A Simbolos utilizados en organigramas. 


El mantenimiento de las aplicaciones 
también es un punto importante, ya que 
consiste en arreglar o innovar programas 
de forma lo más transparente posible. 

Los analistas de mantenimiento deben 
ser personas muy aventajadas y conoce- 
doras de múltiples aplicaciones. 

La documentación en la fase de explo- 
tación sirve para saber qué datos están 
contenidos en el sistema de tres formas: 


paralelo» el sistema antiguo y éste para 
poder detectar los posibles fallos, no pre- 
vistos en los juegos de ensayo. 

Una vez instalado el sistema comienza 
la fase de explotación, en la que los pro- 
gramas ejecutan su trabajo normalmen- 
te ya con datos reales. 

Se deben revisar periódicamente los 
resultados para comprobar si no se pro- 
ducen fallos y si la nueva mecanización 
«Valió la pena». 

En esta fase trabajan equipos de distin- 
ta indole: 


— Preparadores de trabajos. 
— Operadores de consola. 
— Controladores de resultados. 


PARADA 


TEXT LOGICO sI 
NO 


— Como catálogo de programas. 
— Como biblioteca de ficheros. 


— Como normas de utilización de pro- 
gramas y ficheros. 


La documentación en las fases de aná- 
lisis sirve para decidir cómo incorporar 
modificaciones al sistema cuando que- 
de desfasado. 


ARA poder programar 
bucles en código má- 
quina el procesador 
necesita comandos 
que posibiliten el in- 
cremento y decre- 
mento, tanto de sus 
registros como de la 
posición de memoria que nos interese en 
un caso concreto. Sería algo parecido al 
comando NEXT del BASIC. 

Son muy sencillos de aprender y tam- 
bién de utilizar. Veámoslo uno a uno. 


INY. El contenido del registro Y se incre- 
menta en una unidad. Según el resultado 
se activarán o desactivarán los flags N y 
Z 


-DEY. El contenido del registro Y se de- 
crementa en una unidad. Según el resul- 
tado se modificarán también los flags Z y 
N. 


Los correspondientes comandos para 
el registro X con análoga aplicación son 
INX y DEX, respectivamente. 

No existe un comando en la serie 65XX 
para incrementar/decrementar el ACU 
en una unidad. En casos así, lo que se 
debe hacer es transferir el valor del ACU 
al registro X o el Y (TAX O TAY), y una vez 
aquí, realizar el incremento/decremen- 
to. 

Para finalizar se vuelve a transferir el va- 
lor final al ACU. 


INC. Este comando incrementa en uno 
el contenido de la posición de memoria 
especificada. Nuevamente se podrán 
configurar los flags N y Z. 
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COMANDADOS DE INCREMENTO 


Este es el primer comando que estudia- 
mos en el que se lee un registro, en RAM, 
y a continuación se sobreescribe en él. El 
contenido del ACU no se ve alterado por 
ello. 

DEC. Es el comando opuesto al anterior 
y es válido todo lo dicho para INC, con 
la excepción de que ahora se decre- 
menta el contenido de una posición de 
memoria. 


A continuación se presenta un resumen 
de estos comandos con sus códigos. 


Comandos de alteración 
de flags 


Además de la alteración de flags se- 
gún el resultado de ciertas operaciones, 
como ya se ha visto, también pueden ser 
activados o desactivados de manera in- 
directa. 

Esta operación es necesaria antes de 
una adición o una substracción. 


Son comandos de 1 byte y no necesi- 
tan, por tanto, operando alguno. 


Carry flag 


SEC. Se activa el Carry flag debiéndo- 
se utilizar antes de una substracción. 

CLC. Se desactiva el Carry flag y se 
debe utilizar antes de una adición. 


Decimal flag 


SED. Activa el flag y el procesador tra- 
bajará en forma decimal. 
CLD. Desactiva el flag. 


Interrupt flag 


SEI. Se activa el flag y el procesador no 
estará en condición de aceptar una in- 
terrupción. 

CLI: Se desactiva el flag y las interrup- 
ciones vuelven a estar permitidas. 


El Overflow flag 


Este flag tan sólo puede ser desactiva- 
do. Para ello se utiliza el comando CLV. 

La tabla siguiente contiene los códigos 
de los comandos expuestos: 


Bien, ahora, creo que estamos en dis- 
posición de crear un programa en len- 
guaje máquina que haga algo digamos 
«más útil» que los vistos hasta ahora. 

Vamos a intentar una rutina que ponga 
la pantalla en alta resolución y que vuel- 
va a la modalidad de texto tan sólo pul- 
sando una tecla. Para ello se da por su- 
puesto que el lector posee un «monitor» 
(programa) que le permite la entrada de 
programas en assembler. 

Si no lo tiene, no se preocupe, intente 
seguir el proceso que va a estar comen- 


tado prácticamente línea por línea, y ya 
lo tecleará cuando se decida a adquirir 
el monitor. 

Lo primero que vamos a hacer es defi- 
nir una serie de variables cuyo conteni- 
do nos va a hacer falta. 


V = 53248 ($D000) 
V, = V+ 17 = 53265 ($D011) 
V, = V + 24 = 53272 ($D018) 
V, = 53270 ($D016) 


V: Es la dirección inicial del controlador 
de vídeo, el cual dispone de 47 registros, 
cuyo significado y características se sa- 
len del propósito de este tema. 

V,: El quinto bit de este registro nos in- 
dica si estamos en modo gráfico (1) o en 
modo texto (0). 

V,: Dirección base de la RAM de vídeo 
(bits 4-7) y del generador de caracteres 
(bits 1-3). 

V,: El cuarto bit determina el modo mul- 
ticolor. 


* =$0400 
ORG=$C400 
LDA +$3B 
STA $D011 
LDA +$2D 
STA $D018- 
LDA +$D8 
STA $D016 
RTS 
LDA 4$1B 
STA $D011 
LDA +$15 
STA $D018 
LDA 4$C8 
STA $D016 
RTS 


Descripción de la rutina: 


— La(s) línea(s) 100 son dos de las for- 
mas más utilizadas para comunicar el 
programa ensamblador con el que esta- 
mos trabajando, la dirección en la que 
debe comenzar el ensamblado. Cada 
ensamblador tiene su propio formato 
para comunicar el origen de la rutina. 

— La posición de memoria 53265 con- 
tiene, al encender el ordenador, la con- 
figuración %00011011 = $1B = 27. Si po- 
nemos el quinto bit a «1», entraremos en 
el modo gráfico. %00111011 = $3B = 59. 
Esta operación se realiza en las líneas 
110 y 120. 
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— La posición de memoria 53272 del 
controlador de vídeo es muy importante 
y también conflictiva. Al encender el or- 
denador su configuración es la siguiente: 
%00010101 = $1B = 21. Los bits 4-7 defi- 
nen la posición de la RAM de vídeo. El bit 
3 nos va a indicar la posición del mapa 
de bits. Como sabemos, cada carácter 
en pantalla se compone de 8 x 8 puntos. 
Como caben 40 x 25 caracteres, tendre- 
mos en total 64.000 puntos en la panta- 
lla de alta resolución, cada uno de los 
cuales puede estar activado «l» o de- 
sactivado «0». Necesitamos un área de 
memoria de 8.000 bytes (cada byte tie- 
ne 8 bits), para almacenar estos datos. 


Este área que reservamos se denomina 
«mapa de bits». 

Si el bit 3 de la posición 53272 está a 
«Cero», el mapa de bits comenzará en la 
posición O de memoria, cosa que no nos 
interesa. Si el bit 3 está a «uno» el mapa 
de bits empezará en la posición 8192 y 
terminará en la 16.192. Además pode- 
mos desplazar la RAM de vídeo para que 
no sea borrada al activar la gráfica. Esto 
se hace modificando los bits 4-7. 


DIRECCION 
0 


Esto se hace en las líneas 130 y 140, en 
las que cargamos el ACU con el número 
$2D= 45= %00101101 y lo almacena- 
mos en la posición 53272. Vemos que el 
bit 3 está activado y el bit 4 ha pasado 
al 5, es decir, hemos desplazado la RAM 
de vídeo 1 Kbyte a la posición 2048. 


— Por último, el registro número 22, es 
decir, la posición de memoria 53270, nos 
determina si esta activado el modo multi- 
color. 


La configuración inicial de este registro 
es %11001000 = $C8 = 200. Al activar el 
bit cuarto quedará %11011000 = $D8 = 
$216. Líneas 150 y 160. 


El resto de la rutina consiste en volver 
la pantalla al modo texto, recobrandose 
los valores iniciales en los registros. 


Para comprobar la rutina puede te- 
clear un sencillo programa BASIC que 
haga a la pantalla ponerse en modo 
«gráfico» o modo texto al pulsar una te- 
cla. 


SYS 50176:REM ACTIVAR GRAFICA 

GET AS:IF AS= THEN 110 

SYS 50192: REM DESACTIVAR GRAFICA 
0 


GET AS:IF A$=""” THEN 13 
IF AS="F” THEN END 
GOTO 100 


PROGRAMAS 


EDUCATIVOS + DE UTILIDAD + DE GESTION + DE JUEGOS 


3 ' Definidos de El uso del programa es muy sencillo. 

5 Para mover el cursor por la parrilla de di- 

caracteres bujo, donde tendremos que definir los 

para Commodore caracteres, debemos utilizar las siguien- 
tes teclas: 


EMOS visto en esta 
colección una serie O: Mover el cursor hacia la derecha. 
de programas para 
definir SPRITES y ca- 
racteres en distintos 
ordenadores. A conti- 
nuación vamos a ver QA: Mover el cursor hacia arriba. 
un programa que nos 
permitirá definir nuestro propio juego de 
caracteres en el COMMODORE. 


P: Mover el cursor hacia la izquierda. 


A: Mover el cursor hacia abajo. 


1000 REM AOSESSOO SOS” O Soo o loiolojolojok E 
1010 REM * DEFINIDOR DE CARACTERES PARA EL COMMODORE 64 x 
1020 REM AMS OOOO aloja load lolalojolajololaiajolokak 
1030 REM 

1040 POKE 650, 128 

1050 POKE 53281 ,254 

1060 PRINT CHR$(147 y 

1070 POKE 56334 ,0 

1080 POKE 1,51 

1090 FOR K=0 TO 4095 

1100 POKE 57344 +K, PEEK(53248!+K) 

1110 NEXT K 

1120 POKE 1,55 

1130 POKE 56334 ,1 

1140 FOR I=0 TO 255 

1150 POKE 50178 +1, 1 . 
1160 NEXT 1 

1170 DIM C(8),CA%(511,7) 

1180 LET PA=1024 

1190 POKE 53280 ,1 

1200 POKE 53281 ,1 

1210 PRINT CHR$(144);CHR$(147) 

1220 LET CA=0 

1230 LET PO=57344 

1240 LET JU=0 

1250 GOSUB 1890 

1260 GOSUB 2080 

1270 LET X=0 

1280 LET Y=0 

1290 GOSUB 1490 

1300 GOSUB 2370 

1310 GET A$ 

1320 IF A$="" THEN GOTO 1310 


» PROGRAMAS 


1330 LET T=ASC(A$) 

1340 IF T<>32 THEN GOTO 1370 

1350 IF 2”(7-X) AND C(Y) THEN LET C(Y)=C(Y)-2”(7-X):GOTO 1370 
1360 LET C(Y)=C(Y) OR 2” (7-X) 

1370 IF T>132 AND T<141 THEN GOTO 1450 

1380 LET T=PA+41+X+40x*Y 

1390 IF C(Y) AND 2”(7-X) THEN POKE T,81:GOTO 1410 

1400 POKE T, 46 

1410 LET X=(X-(A$="P")+(A$="0")) AND 7 

1420 LET Y=(Y-(A$="A")+(A$="Q")) AND 7 

1430 GOSUB 1640 

1440 GOTO 1310 

1450 ON T-132 GOSUB 2600, 2700, 2900, 3780, 2800, 3020, 3170, 1700 
1460 GOTO 1310 , 


1470 REM 
1480 REM dedRRISSISISIS ISSO lO lSlSIPlOJOJK 


1490 REM * ESCRIBE PARRILLA * 
1500 REM AddMSSSSS SiO SIOlOO OO OOOO OK 
1510 REM 

1520 PRINT CHR$(19);CHR$(145); 
1530 FOR I=0 TO 7 

1540 LE? T=ac(I) 

1550 LET T1=128 

1560 PRINT CHR$(29); 

1570. FOR G=1 TO 8 


1580 IF T AND T1 THEN PRINT CHR$(113);:GOTO 1600 
1590 PRINT". “9 
1600 LET Ti=T1/2 


1610 NEXT G 

1620 PRINT 

1630 NEXT I 

1640 LET T=PA+41+X+40xY 

1650 IF C(Y) AND 27(7-X) THEN POKE T,209: RETURN 
1660 POKE T,174 

1670 RETURN 

1680 REM 

1690 REM Ad*MSSOOSSIOlOlOlOlOlololOOK 

1700 REM * BORRA PARRILLA + 

1710 REM Adol” Ol lola olorok 

1720 REM 

1730 FOR I=0 TO 7 

1740 LET C(1):09 

1750 NEXT I 

1760 GOSUB 1490 

1770 RETURN 

1780 REM 

1790 REM A9SSSOISIS ISI ISO lO tor di OI lodo lO lOJOJOK 
1800 REM * CAMBIO DE CHR$ A CODIGO DE PANTALLA * 
1810 REM ASS IORIRISIO RIOS SOS SSISIO SISSI OOOO: 
1820 REM 

1830 LET T=ASC(A5) 

1840 IF T$"7?" AND T<96 THEN LET T 
1850 IF T$>CHR$(95) THEN LET T=T--1 
1860 RETURN 

1870 REM 

1880 REM AdloloOOo la OOOO OOOO ORO IOKOK 
1890 REM * PINTA EL MARCO DE [A PARRILLA + 
1900 REM Add SOI OOOO lO IO OOOO lOIOlOOIPIOPISIOO 
1910 REM 

1920 PRINT CHR$(19);CHR$(111) 

1930 FOR I=1 TO 8 

1940 PRINT CHR$4163); 

1950 NEXT I 

1960 PRINT CHR$(112) 

1970. FOR 1=0. TO 7 

1980 PRINT CHR$(116)>;" ";CHR$(167) 
1990 NEXT I 

2000 PRINT CHR$(108); 


=T-64:GOTO 1860 
23 


2010 FOR I=1 TO 8 

2020 PRINT CHR$(114); 

2030 NEXT I 

2040 PRINT CHR$(186) 

2050 RETURN 

2060 REM 

2070 REM aRSSS SAS SS MISS ISISlOlTlOlVIVJOK 

2080 REM * PONE MENU PRINCIPAL *x 

2090 REM RSS SS SSSSSSIOISISIOIOIOIOIO OO 

2100 REM 

2110 GOSUB 2460 

2120 PRINT CHR$(19); 

2130 FOR I=1 TO 13 

2140 PRINT CHR$(145); 

2150 NEXT I 

2160 PRINT " -'- -=-=-=--- MENU PRINCIPAL------ ele 

2170 PRINT CHR$(145) 

2180 PRINT CHR$(18);CHR$(31);"F1"”;CHR$(146);CHR$(144); 
2190 PRINT "-INVIERTE CARACTER. ' 

2200 PRINT CHR$(18);CHR$(31);"F5; "CHR$(146);CHR$(144); 
2210 PRINT "-ESPEJO VERTICAL” 

2220 PRINT CHR$(18);CHR$(31);"F2";CHR$(146);CHR$(144); 
2230 PRINT "-ROTACION DERECHA.  ' 

2240 PRINT CHR$(18);CHR$(31);"F6";CHR$(146);CHR$(144); 
2250 PRINT "-SAVE/LOAD. " > 

2260 PRINT CHR$(18);CHR$(31);"F3"; CHR$(146); CHR$(144); 
2270 PRINT “-ROTACION IZQUIERDA. " 

2280 PRINT CHR$(18);CHR$(31);"F7";CHR$(146);CHR$(144); 
2290 PRINT "-JUEGOS/ASIGNA. " 

2300 PRINT CHR$(18);CHR$(31);"F4";CHR$(146);CHR$(144); 
2310 PRINT "ESPEJO HORIZONTAL. " 

2320 PRINT CHR$(18);CHR$(31);"F8";CHR$(146);CHR$(144); 
2330 PRINT "-BORRAR. " 

2340 RETURN 

2350 REM 

2360 REM dd SSSSSSSlSS SSI 

2370 REM * DATOS DE LA DEFINICION x* 

2380 REM dMSSSSSS ld SSSlSlSlSSSJSllSlSlOjk 

2390 REM 

2400 PRINT CHR$(19);CHR$(145);CHR$(145);CHR$(145);TAB(11); "JUEGO: ";JU 


2410 PRINT TAB(11);"ULTIMO CARACTER: ";CA;CHR$(157);"--";TAB(28);"-";CHR$(31);" " 


; CHR$(144) 

2420 POKE 1219,CA 

2430 RETURN 

2440 REM 

2450 REM AMSSSSSSOO OOOO SSlSlS ISSO lola jaa jojoKok 
2460 REM * BORRA LAS LINEAS DE LA PANTALLA x*x 
2470 REM AMSRSSSSS OSOS OOOO” lS OSO OOO OOOO Jok 
2480 REM 

2490 FOR X=12 TO 24 

2500 POKE 781,X 

2510 SYS 59903 

2520 NEXT X 

2530 PRINT CHR$(19); 

2540 FOR G=0 TO 12 

2550 PRINT CHR$(17); 

2560 NEXT G 

2570 RETURN 

2580 REM 

2590 REM AMSSOOOSS ES ISISIOOOSO SIS OISSlolOlOjOjOJok 

2600 REM * INVERSION DE UN CARACTER x* 

2610 REM ASMSoSSOSS SS SSOOO ESOO ANjojOOK 

2620 REM 

2630 FOR I=0 TO 7 

2640 LET C(I)=ABS(C(1I)-255) 

2650 NEXT 1 

2660 GOSUB 1490 
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2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 


RETURN 
REM 
REM dE ISSS SIS SjSlOlOlSlOlOJOJOKOK 
REM * ROTACION DERECHA * 
REM AdMSS SOS SOS GIdlSlSlOlOIOIOJOK 
REM 
FOR I=0 TO 7 
LET C(I)=(C(1I)*x2 AND 255)+(C(1) AND 128)/128 
NEXT I 
GOSUB 1490 
RETURN 
REM 
INE 
REM * ROTACION DERECHA * 
REM ASS SOS SISSI lSlOlOlSOlOKOJOK 
REM 
FOR-I=0 TO. 
LET C(I)=C(1)/2+(C(I) AND 1)x128 
NEXT I 
GOSUB 1490 
RETURN 
REM 
REM SS OSOS lalo jololajojok 
REM * ESPEJO VERTICAL *x 
REM AMS SOS O OOOO HOK KK ok 
REM 
FOR. 1=0"T03 
LET T=GUI 
LET C(1)=C(7-I) 
LETS E 
NEXT I 
GOSUB 1490 
RETURN 
REM 
REM dos ISIS SOS lSldldlOlOlOlojoOK 
REM * ESPEJO HORIZONTAL x 
REM MMS ISSO ISOlS ISSO ISIOjO KIO OjOK 
REM 
FOR I-0 TO 7 
LET T=C(E) 
LET -C(TFE9 
FOR G=0 TO 3 
IF T AND 27G THEN LET C(I)=C(1)+27(7-G) 
IF T AND 2*(7-G) THEN LET C(1)=C(I)+2*G 
NEXT G 
NEXT I 
GOSUB 1490 
RETURN 
REM 
REM ASS SOOOloldO OK 
REM * SAVE/LOAD * 
REM dd lO lSlSlSlVJOJOK 
REM 
GOSUB 2460 
PRINT TAB(6)3"-"==== MENU DE CASSETTE------ < 
PRINT 
PRINT CHR$(18);CHR$(31);"F1";CHR$(146); CHR$(144); 
PRINT "-SAVE JUEGO. ";TAB(20); 
PRINT CHR$(18);CHR$(31);"F3";CHR$(146);CHR$(144); 
PRINT "-LOAD JUEGO. " 
PRINT CHR$(18);CHR$(31);"F2";CHR$(146); CHR$(144); 
PRINT "-RETORNO AL:MENU PRINCIPAL. ” 
GET A$ 
IF A$="" THEN GOTO 3290 
LET A=ASC(AS$) 
IF A=132 THEN LET O$="0PCION-SAVE":GOTO 3360 
IF A-133 THEN LET O$="0PCcION LOAD":GOTO 3360 


3340 IF A=134 THEN GOSUB 2110: RETURN 

3350 GOTO 3290 

3360 PRINT 

3370 PRINT TAB(8);"------";0$;"------ z 

3380 PRINT 

3390 INPUT "NOMBRE ";T$ 

3400 IF T$="" OR LEN(T$)>10 THEN POKE 781,20:SYS 59903:PRINT CHR$(147):GOTO 3390 
3410 REM 

3420 REM Adol 

3430 REM * LOAD * 

3440 REM AddedldloldldloK 

3450 REM 

3460 IF A=132 THEN GOTO 3620 

3470 PRINT “PULSE ALGUNA TECLA PARA EMPEZAR A CARGAR” 
3480 POKE 1,PEEK(1) AND 39 

3490 POKE 192,0 

3500 GET A$ 

3510 IF A$="" THEN GOTO 3500 

3520 OPEN 1,1,0,T$ 

3530 FOR I=JU*256 TO JU*256+255 

3540 FOR G=0 TO 7 

3550 INPUT *$1,CA%(1,G) 

3560 NEXT G 

3570 NEXT 1 

3580 CLOSE 1 

3590 GOTO 3200 

3600 REM 

3610 REM AdMedbldledlolok 

3620 REM * SAVE x* 

3630 REM Addeledidloldlok 

3640 REM 

3650 PRINT “PULSE ALGUNA TECLA PARA EMPEZAR A GRABAR” 
3660 POKE 1,PEEK(1) AND 39 

3670 POKE 192,0 

3680 GET A$ 

3690 IF A$="" THEN GOTO 3680 

3700 FOR I=JU*256 TO JUx256+255 

3710 FOR G=0 TO 7 

3720 PRINT $t1,CA%(I,G) 

3730 NEXT G 

3740 NEXT 1 

3750 GOTO 3200 

3760 REM 

3770 REM AMMNNOOOSOSiSiolOlojolok 

3780 REM * JUEGOS/ASIGNA * 

3790 REM ASOMO ISO lO ISSO 

3800 REM 

3810 GOSUB 2460 

3820 PRINT TAB(7);"------JUEGOS/ASIGNA------ E 

3830 PRINT , 
3840 PRINT CHR$(18);CHR$(31);"F1";CHR$(146);CHR$(144*; 
3850 PRINT “-MENU PRINCIPAL. ”, 

3860 PRINT CIRK$(18);CHR$(31);"F4";CHR3(146);CHR$(144); 
3870 PRINT "-CAMBIA JUEGO. " 

3880 PRINT CHR$(18);CHR$(31);"F2";CHR$(146);CHR$(144); 
3890 PRINT "-RESUMEN. ”, 

3900 PRINT CHR$(18);CHR$(21);"F5";CBR$(146);CHR$(144); 
3910 PRINT “-COPIA DE ROM. * 

3920 PRINT CHR3(13);CHR$(31);"F3";CHR$(146);CHR$(144); 
3930 PRINT “-ASIGNA PARRILLA. ", * 

3940 PRINT CHR$(18);CHR3(31);"F6”;CHR$(146);CHR$(144); 
3950 PRINT "-EDITA CARACTER. " 

3960 PRINT 

3970 GET A$ 

3980 1F A$="" THEN GOTO 3970 

3990 LET A=ASC(A$) 

4000 IF A-133 THEN GOSUB 2110: RETURN 
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4010 IF A-134 THEN GOSUB 4640:GOTO 3310 
4020 IF A-135 THEN GOSUB 4210:GOTO 3810 
4030 IF A=-136 THEN GOSUB 4090:GOTO 3810 
4040 IF A=137 THEN GOSUB 4450:GOTO 3810 
4050 IF A=138 THEN GOSUB 4330:GOTO 3810 
4060 GOTO 3970 

4070 REM 

4080 REM Ada OlOOOOlOJO kk 

4090 REM * CAMBIA JUEGO *x 

4100 REM AddooioddOlSiOlOlOlOlO OK 

4110 REM « 

4120 PRINT "JUEGO (0-1) ? "; 

4130 GET A$ 

4140 IF A$="" OR A$<>"1" AND A$<>"0" THEN GOTO 4130 
4150 LET JU=VAL(A$) 

4160 PRINT A$ 

4170 GOSUB 2370 

4180 RETURN 

4190 REM 

4200 REM ASSRMS SS SOS ESOO] lOjOJO kk 

4210 REM * ASIGNA PARRILLA *x 

4220 REM dSiSlSlSlElPSIESlSl”SlSlSl”SOOOJOK 

4230 REM 

4240 GOSUB 4780 

4250 LET D=JU*x2048+CAx8+57344! 

4260 FOR G=0 TO 7 

4270  — POKE D+G,C(G) 

4280 LET CA%(JU*x256+CA,G)=C(G) 

4290 NEXT G : 

4300 RETURN 

4310 REM 

4320 REM AdRdRSRdSRSSSOO OOOO lojolok 

4330 REM * EDITA CARACTER * 

4340 REM AdSSRSSS SS lSlSOlOlOlSIOlOKOK 

4350 REM 

4360 GOSUB 4780 

4370 FOR G=0 TO 7 

4380 LET C(G)=CAX(JU*x256+CA,G) 

4390 NEXT G 

4400 GOSUB 1490 

4410 LET X=0 

4420 LET Y=0 

4430 RETURN 

4440 REM 

4450 REM ASSdSSRSOOlOlOOlOlOJOKOK 

4460 REM * COPIA DE ROM x* 

4470 REM Adidl**SlPl”lPlPl>lPlPlOOJOK 

4480 REM 

4490 GOSUB 4780 

4500 POKE 56334 ,0 

4510 POKE 1,51 

4520 LET D-JU*x2048+CA*x8+53248 

4530 FOR G=0 TO 7 

4540 LET C(G)=PEEK(D+G) 

4550:*NEXT G 

4560 POKE 1,55 

4570 POKE 56334 ,1 

4580 GOSUB 1490 

4590 LET X=0 

4600 LET Y=0 

4610 RETURN 

4620 REM 

4630 REM Ass S SOS OSOS] j]j]l] lll” SOS OSOS OOOO lOlO OK 
4640 REM * RESUMEN DE CARACTERES CON LOS QUE SE ESTA TRABAJANDO x 
4650 REM AsRSRSS SS SSSlSlSlS? EE? SS OSOS ESOO OOOO dd dd dd dk ok 
4660 REM 

4670 POKE 56576 ,196 


4680 POKE 648, 196 


4700 GET A$ 

4710 IF A$="" THEN GOTO 4700 
4720 POKE 53272 ,21 

4730 POKE 648, 4 

4740 POKE 56576 ,199 

4750 RETURN 

4760 REM 

4770 REM AdMSRSSSSIORSOIOSSOEOIO OK 
4780 REM * INPUT CARACTER * 
4790 REM AMMSSORS SOS SIOlOOIO OJO OK 
4800 REM 


4820 GET A$ 


4840 LET T1=VAL(A$) 

4850 PRINT "CARACTER ? "; 
4860 GET T$ 
4870 IF T$="" 
4880 PRINT T$ 
4890 GOSUB 1800 

4900 LET CA=T1*128+T 
4910 GOSUB 2370 

4920 RETURN 


THEN GOTO 4860 


Una vez que nos encontremos sobre el 
punto al cual queremos cambiar de es- 
tado, pulsamos la barra espaciadora. Si 
dicho punto estaba apagado, se encen- 
derá, y si estaba encendido, se apagará. 

En la parte inferior de la pantalla, po- 
demos ver un menú con todas las posi- 
bles opciones que nos permite el progra- 
ma. Estas son: 


F4. INVIERTE CARACTER. Todos los puntos 
que están iluminados se apagan y todos 
los que están apagados se iluminan. 

F2. ROTACION DERECHA. El carácter rota 
un punto hacia la derecha. Lo que desa- 
parezca por ésta, vuelve a aparecer por 
la izquierda. 

F3. ROTACION IZQUIERDA. Lo mismo que 
F2 rota hacia la izquierda. 

F4. ESPEJO HORIZONTAL. Nos muestra el 
carácter como si lo estuviésemos viendo 
en un espejo. 

F5. ESPEJO VERTICAL. Realiza el mismo 
efecto que F4, pero verticalmente. 

F6. SAVE/LOAD. Nos permite leer del 


4690 POKE 53272 ,PEEK(53272 ) AND NOT 6 OR 8 


4810 PRINT "INTRODUZCA CARACTER: O0-NORMAL, 1- INVERSO” 


4830 IF A$="" OR A$<>"0" OR A$<>"1" THEN GOTO 4820 


cassette o graba en el cassette el juego 
de caracteres que estamos redifiniendo. 
F7. JUEGOS/ASIGNA. Nos muestra otro 
menú. 
F8. BORRAR. Nos borra la parrilla de di- 
bujo. 


Si pulsamos la tecla F7 nos aparecerá 
otro menu con distintas opciones: 


F4. MENU PRINCIPAL. Nos devuelve al 
menú principal. 

F2. RESUMEN. Nos permite ver los carac- 
teres que hemos definido hasta el mo- 
mento. 

F3. ASIGNA, PARRILLA. Asigna la figura 
que está en la parrilla a un carácter en 
especial. 

F4. CAMBIA JUEGO. Nos permite cam- 
biar el juego de caracteres sobre el que 
estamos trabajando. 

F5. COPIA DE ROM. Copia un carácter 
de la ROM en la parrilla. 

F6. EDITA CARACTER. Edita uno de los 
caracteres del juego en el que nos en- 
contramos. 
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| Programa: Ajedrez para 
Spectrum 


El programa de ajedrez que ofrecemos 
a continuación está pensado para dos 
jugadores. Esto significa que el ordena- 
dor no puede jugar. Sólo se encarga de 
mover las figuras y de comprobar que los 
movimientos que se realizan son correc- 
tos. 


S FIGURAS 


PEOR 
TORHME 
CABALLO 
HIZFEL 
REY 
RETHA 


ECPOAOFE PR 


ll E UI EA 


Al principio del programa se pregunta 
si se quiere jugar con JOYSTICK o con el 
teclado. Si elegimos la palanca de jue- 
gos, ésta tiene que ser compatible KEMS- 
TON. 


ELIGE OPCION 


= JOYSTICK 
- TECLADO 


Menú de opciones. 


10 REM ASAS MAS INOSIOIRIOIOIOJOIOIOJOK 
20 REM aaa loJM IS lolS IS llJOIOlJOJOK 
AJEDREZ k 


30 REM * 
40 REM aaa iaiaiiototok 


En el caso de que utilicemos el tecla- 
do, para decir el lugar donde queremos 
mover una de las piezas, tenemos que 
dar primero las coordenadas de partida, 
y después, las de destino. Primero dare- 
mos la letra, y después, el número. 


A 
E 
(ma 
c 
E 
F 
pe 
H 


SEBAS 
BLAMCAS 


Comienzo del juego. 


TGOAMOOMTD 
A | 

oTIar 
Done Tr 


GAN 


BLANCAS 


50 REM ASSSSSS SISSI SISSI lSlSOIOKOK 
60 REM * JOSE M.GARCIA LUENGOx 
70 REM ASSIM ISSO OSISISlSO SIS lSlSIOIOKOK 
80 REM ad SO SEO ISIOlSISOlSOlSlOlOIOJOJOK 
81 REM 
82 REM ARsSSSSSSS ESOS SS lSS SOS” OS JSJSISlOROKOJOK 
83 REM x xk 
84 REM *x (c) Ediciones Siglo Cultural * 
85 REM * xk 
86 REM * (c) 1987 xk 
87 REM x* k 
88 REM AsSSSIS OSOS SES lSO SOS dlkok 
89 REM 
90 PAPER O 
100 INK 6 
110 BORDER O 
120 CLEAR 
130 PRINT AT 2,10; INK 4; "ELIGE OPCION"; AT 3,9; INK 5;"------=--=-=-=-=-=-- e 
140 PRINT AT 8,10; INK 7; INVERSE 1; PAPER 1;"1"; INVERSE O; PAPER 0;" - JOYSTI 
CR” 
145 PRINT AT 10,10; INK 7; INVERSE 1; PAPER 1;"2"; INVERSE O; PAPER 0;" - TECLA 
DO" 
150 IF INKEY$="1" THEN LET JOY=1: GO TO 180 
160 IF INKEY$<>"2" THEN GO TO 150 
170 LET JOY=0 
171 REM 
172 REM ASS IS ISSO ISlSIOIOlOJOK 
173 REM * INICIALIZACION x*x 
174 REM ddMRSSSSIR OS lSlOISlPOIOIOKOK 
175 REM 
180 CLS 
181 PRINT AT 10,8; FLASH 1;"ESPERE UN MOMENTO" 
190 GO SUB 1870 
200 LET ERR=0 
210 LET NJ=1 
220 DIM T3(8,24) 
230 "LET- T=7? 
240 LET PAG=1 
250 LET RLB=0 
255 LET RCB=0 
260 LET RLN=0 
265 LET RCN=0 
270 IF JOY=1 THEN LET ST=0: LET XJ=5: LET YJ=5 
280 FOR A=1 TO 8 
290 FOR B=3 TO 24 STEP 3 
300 LET T$(A,B)=("4" AND (A+B)/2=INT ((A+B)/2))+("2" AND (A+B)/2<>INT ((A 
+B)/2)) 
310 NEXT B 
320 NEXT A 
330 FOR A=1 TO 8 . 
340 FOR B=2 TO 24 STEP 3 
350 LET T$(A,B)=("0" AND A<3)+("7" AND A>6)+("8” AND A>2 AND A<7) 
360 NEXT B 
370 NEXT A 
380 FOR A=1 TO 24 STEP 3 
390 LET T$(2,A)=CHR$ 144 
400 LET T$(7,A)=CHR$ 144 
410 NEXT A 
420 LET T$(1,1)=CHR$ 145 
422 LET T$(1,22)=CHR$ 145 
424 LET T$(8,1)=CHR$ 145 
426 LET T$(8,22)=CHR$ 145 
430 LET T$(1,4)=CHR$ 146 
432 LET T$(1,19)=CHR$ 146 
434 LET T$(8,4)=CHR$ 146 
436 LET T$(8,19)=CHR$ 146 
440 LET T$(1,7)=CHR$ 147 


442 


LET T$(1,16)=CHR$ 147 
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444 
446 
450 
452 
458 
459 
461 
462 
463 
464 
465 
469 
470 
480 
490 
500 
510 
520 
530 


LET T$(8,7)=CHR$ 147 
LET T$(8,16)=CHR$ 147 

LET T$(1,10)=CHR$ 149 

LET T$(8,10)=CHR$ 149 

LET T$(1,13)=CHR$ 148 

LET T$(8,13)=CHR$ 148 

REM 

REM AMS SS SOS SOOOlOlOlOlOiOOjOJOKk 
REM * PROGRAMA PRINCIPAL x* 
REM MOSSOS SO SSOO SO dOlO Soi jojok 


REM 
CLS 
FOR A=1 TO 8 
PRINT AT O,A;A 
PRINT AT A,O;CHR$ (64+A) 
NEXT A 
FOR A=1 TO 8 


FOR B=1 TO 24 STEP 3 
PRINT BRIGHT 1; OVER 1;AT A,B/3+1; INK VAL T$(A,B+1); PAPER VAL T$(A 


B+2);T$(A,B) 


540 
550 
560 


ES 


570 
580 
590 
600 
B10 
620 


NEXT B 
NEXT A 
PRINT BRIGHT 1;AT 0,14;"BLANCAS";AT 0,22; INVERSE 1;"NEGRAS"; FLASH 1;AT 1 
JUEGAN" 
PRINT AT 21,0;" 
PRINT AT 17,1; FLASH 1;("BLANCAS” AND T=7)+("NEGRAS. " AND- T=0) 
IF JOY=1 THEN GO TO 1930 
INPUT "JUGADA: "; LINE C$ 
TF LEN C$<>5 “THEN GO TO 570 
IF C$(1)<"A" OR C$(1)>"H" OR C$(2)>"8" OR C$(2)<"1" OR C$(3)<>"-" OR C$(4)< 


"A" OR C$(4)>"H" OR C$(5)>"8" OR C$(5)<"1" THEN GO TO 570 


630 LET X=VAL C$(2) 

640 LET XF=VAL C$(5) 

650 LET Y=CODE C$(1)-64 

660 LET YF=CODE C$(4)-64 

670 GO SUB 700 

680 IF ERR=1 THEN LET ERR=0: GO TO 570 

690 GO TO 780 

700 IF VAL T$(Y,Xx*3-1)=7 THEN IF T=0 THEN PRINT AT 21,0;"ESA FICHA NO ES TUYA 
a E 601 TO PO 

710 IF VAL T$(Y,Xx*3-1)=0 THEN 1F T=7 THEN PRINT AT 21,0;"ESA FICHA NO ES TUYA 
so GO-TO-700 

720 IF T$(Y,X*3-1)="8" AND T$(Y,Xx3-2)=" " THEN PRINT AT 21,0;"AHI NO HAY NING 
UNA FICHA...": GO TO 740 

730 RETURN 

740 BEEP .1,0: PAUSE 35 

750 IF INKEY$="" AND IN 223=0 THEN GO TO 750 

760 LET ERR=1 

770 RETURN 

780 IF T$(Y, X*3-2)=CHR$ 144 THEN GO TO 1050: GO TO 2160 

790 IF T$(Y,X*3-2)=CHR$ 149 THEN GO TO 1180 

800 IF T$(Y,Xx*x3-2)=CHR$ 146 THEN GO TO 1350 

810 IF T$(Y,X*3-2)=CHR$ 147 THEN GO TO 1420 

820 IF T$(Y, X*x3-2)=CHR$ 149 THEN GO TO 1500 

830 IF T$(Y,X*3-2)=CHR$ 148 THEN GO TO 1530 

840 IF T$(Y,X*3--2)=CHR$ 144 THEN GO SUB 2160 

850 IF T$(YF, XF*3-2)=CHR$ 148 THEN PRINT FLASH 1;AT 10,0;"HAN GANADO LAS ";(" 


BLANCAS" AND T=7)+("NEGRAS” AND T=0): FOR A=-40 TO 40: BEEP .01,A: NEXT A: PAUSE 


O: RUN 

860 IF X=1 AND Y=8 AND T=7 THEN LET RLB=1 

870 IF X=8 AND Y=8 AND T=7 THEN LET RCB=1 

880 IF X=1 AND Y=1 AND T=0 THEN LET RLN=1 

890 IF X=8 AND Y=1 AND T=0 THEN LET RCN=1 

900 IF T$(Y, Xx3-2)=CHR$ 148 AND T=7 THEN LET RLB=1: LET RCB=1 
910 IF T$(Y, X*x3-2)=CHR$ 148 AND T=0 THEN LET RLN=1: LET RCN=1 
920 LET TS$(YF, XF*x3-2)=T$(Y, Xx*x3-2) 

930 LET T$(YF, XF*x3-1)=T$(Y, Xx*x3-1) 


940 


LET T$(Y, Xx3-2)=" 


950 LET T$(Y, X*3-1)="8" 

960 PRINT AT Y,X; BRIGHT 1; INK VAL T$(Y,X*3-1); PAPER VAL T$(Y,Xx*x3);TS(Y, Xx3-2 
) 

970 PRINT AT YF,XF; BRIGHT 1; INK VAL TS(YF, XF*3-1); PAPER VAL TS(YF, XF*x3);TS(Y 
F, XFx3-2) y 

980 IF T=7 THEN PRINT AT NJ-PAG*x20+20,12;NJ;AT NJ-PAG*20+20,14;":";C$ 

990 IF T=0 THEN PRINT AT NJ-20xPAG+20,22;C$ 

1000 LET T=T+(7 AND T=0)-(7 AND T=7)> 

1010 IF T=7 THEN LET NJ=NJ+1 

1020 IF NJ>20*xPAG THEN LET PAG=PAG+1 

1030 GO TO 570 

1040 STOP 

1041 REM 

1042 REM ASS SO SISI IOIOIOIOJOOIOIOK 

1050 REM * RESTRICCIONES PEON * 

1051 REM ASoSSSSSISjS RS SISIOSSIOIOOIOIOROK 

1052 REM 

1060 IF ABS (Y-YF)>2 THEN GO TO 1830 

1070 IF ABS (Y-YF)=0 THEN GO TO 1830 

1080 IF T=7 THEN IF Y-YF<O THEN GO TO 1830 

1090 IF T=0 THEN IF YF-Y<0 THEN GO TO 1830 

1100 IF Y-YF=2 THEN IF TS$(YF,XFx3-1)<>"8" OR T$(YF+1,XF*x3-1)<>"8" OR Y<>7 OR X- 
XF<>0 THEN GO TO 1830 — 

1110 IF Y-YF=1 AND X=XF THEN IF T$(YF,XF*x3-1)<>"8" THEN GO TO 1830 

1120 IF YF-Y=2 THEN IF T$(YF, XFx3-1)<>"8" OR T$(YF-1,XFx3-1)<>"8" OR Y<>2 OR X- 


XF<>0 THEN GO TO 1830 


1130 
1140 
1150 
1160 


IF YF-Y=1 AND X=XF THEN 1F T$(YF,XFx*x3-1)<>"8" THEN GO TO 1830 

IF ABS (XF-X)>1 THEN GO TO 1830 

IF ABS (XF-X)>1 THEN GO TO 1830 

IF ABS (XF-X)=1 THEN IF TS(YF,XFx3-2)=" " OR T$(YF,XF*3-1)=STR$ T THEN GO 


TO 1830 


1170 
1171 
1172 
1180 
1182 
1183 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1341 
1342 
1350 
1352 
1353 
1360 
1370 
1380 
1390 
1400 
1410 
1411 
1412 


GO TO 840 

REM 

REM ASS SSSSOSSSOO OOOO IOjOOJOK 

REM * RESTRICCIONES TORRE x* 

REM ASMSSSISSSSSSSSOlSPSlO OOO lEOIO OK 

REM 

IF YF-Y<>0 THEN IF XF-X<>0 THEN GO TO 1830 

IF ABS (YF-Y)<>0 THEN GO TO 1280 

IF XF=X+1 OR XF=X-1 THEN “IF T$(YF,XF*3-1)<>STR$ T THEN GO TO 840 
IF X>XF THEN GO TO 1240 

FOR A=X+1 TO XF: GO TO 1250 

FOR A=XF TO X-1 

IF TS$(YF,A*3-1)<>STR$ T OR T$(YF,A*3-1)="8" THEN NEXT A: GO TO 1270 
GO TO 1830 

GO TO 840 

IF YF=Y+1 OR YF=Y-1 THEN IF T$(YF,XF*3-1)<>STR$ T THEN GO TO 840 
IF Y>YF THEN GO TO 1310 

FOR A=Y+1 TO YF: GO TO 1320 

FOR A=YF TO Y-1 

IF TS$(A,XF*3-1)<>STR$ T OR T$(A,XFx*3-1)="8" THEN NEXT A: GO TO 1340 
GO TO 1830 

GO TO 840 

REM 

REM AMSSSS SOS OSOS lolo lalala jOlojojodok 

REM * RESTRICCIONES CABALLO * 

REM aaa lO SISSI IOISISISISlSISOSSlSlOIOIOK 

REM 

IF T$(Y,X*3)=TS(YF,XFx3) THEN GO TO 1830 

IF TS$(YF,XF*3-1)=STR$ T THEN GO TO 1830 

IF ABS (X-XF)>2 OR ABS (Y-YF)>2 OR X-XF=0 OR Y-YF=0 THEN GO TO 1830 
IF ABS (X-XF)=2 THEN IF ABS (Y-YF)>1 THEN GO TO 1830 

IF ABS (Y-YF)=2 THEN IF ABS (X-XF)>1 THEN GO TO 1830 

GO TO 840 

REM 

REM dRSSRSSISSIORSIS ISSO SOS SlOlSlOIOOJOK 
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22] PROGRAMAS 


1420 REM * RESTRICCIONES ALFIL * 

1422 REM sSdSS RSS SiOOSSSElOldldlSEjojOjOk 

1423 REM 

1430 IF T$(Y,X*3)<>TS(YF,XFx3) THEN GO TO 1830 

1440 IF ABS (X-XF)<>ABS (Y-YF) THEN GO TO 1830 

1450 IF X>XF THEN GO TO 1470 

1460 LET B=Y-(1 AND Y>YF)+(1 AND Y<YF): FOR A=X+1 TO XF: GO TO 1480 
1470 LET B=YF: FOR A=XF TO X-1 

1480 IF T$(B,Ax3-1)<>STR$ T THEN LET B=B+(1 AND Y<YF AND X<XF)+(1 AND Y>YF AND 
X>XF)-(1 AND X>XF AND Y<YF)-(1 AND X<XF AND Y>YF): NEXT A: GO TO 840 
1490 GO TO 1830 

1491 REM 

1492 REM ASSSSSSOSSSOSOSSOESOlOEOOIOIOK 

1500 REM * RESTRICCIONES DAMA x* 

1502 REM dodaSdSSNSSiSiOOSSO SiO OOK 

1503 REM 

1510 IF ABS (X-XF)=ABS (Y-YF) THEN GO TO 1430 

1520 GO TO 1180 

1521 REM 

1522 REM ASSSSSSSOSSOlSOORSOlOEOOIOK 

1530 REM * RESTRICCIONES REY * 

1532 REM A*MSSSNddOS OS iOldOSOSOIOlOIDIOK 

1533 REM 


1540 IF Y-YF=0 THEN IF X-XF=2 AND T=7 AND RLB=0 THEN GO TO 1610 
1550 IF Y-YF=0 THEN IF X-XF=2 AND T=0 AND RLN=0 THEN GO TO 1610 
1560 IF Y-YF=0 THEN IF XF-X=2 AND T=7 AND RCB=0 THEN GO TO 1720 
1570 IF Y-YF=0 THEN IF XF-X=2 AND T=0 AND RCN=0 THEN GO TO 1720 


1580 IF ABS (X-XF)>1 OR ABS (Y-YF)>1 THEN GO TO 1830 
1590 IF TS$(YF, XFx3-1)=STR$ T THEN GO TO 1830 

1600 GO TO 840 

1601 REM 

1602 REM AeoSlSlOlOSSlOlOIOlOJOJOOJOK 

1610 REM * ENROQUE LARGO x*x 

1612 REM ddRRSSISIS SS lSlOIOIOjOOJOK 


1613 REM 
1620 FOR A=X-1 TO XF+1 STEP -1 
1630 IF T$(Y,A*3-2)=" " THEN NEXT A: GO TO 1650 


1640 GO TO 1830 

1650 LET T$(Y,10)=T$(Y,1) 

1660 LET T$(Y,11)=T$(Y,2) 

1870 LEC ES(Y, 13=" * 

1680 LET T$(Y,2)="8" 

1690 PRINT AT Y,4; INK VAL T$(Y,11); PAPER VAL T$(Y,12); BRIGHT 1;T$(Y,10) 
1700 PRINT AT Y,1; INK VAL T$(Y,2); PAPER VAL T$(Y,3); BRIGHT 1;T$(Y,1) 
1710 GO TO 840 

1711 REM 

1712 REM ASMSSdSORSSS Sol ROakk 

1720 REM * ENROQUE CORTO x* 

1722 REM ARMRSSNdSSSRS SOS K 


1723 REM 
1730 FOR A=X+1 TO XF 
1740 IF T$(Y,A*3-2)=" " THEN NEXT A: GO TO 1760 


1750 GO TO 1830 

1760 LET T$(Y,16)=T$(Y, 22) 

1770 LET T$(Y,17)=TS$(Y,23) 

1780 LET T$(Y,22)=" " 

1790 LET T$(Y,23)="8" 

1800 PRINT AT Y,6; INK VAL T$(Y,17); PAPER VAL T$(Y,18); BRIGHT 1;T$(Y,16) 
1810 PRINT AT Y,8; INK VAL T$(Y,23); PAPER VAL T$(Y,24); BRIGHT 1;T$(Y, 22) 
1820 GO TO 840 

1830 PRINT AT 21,0; "MOVIMIENTO ILEGAL..." 

1834 REM 

1840'BEEP .1,0: PAUSE 35 

1850 IF INKEY$="" AND IN 223=0 THEN GO TO 1850 

1860 GO TO 570 

1861 REM 

1862 REM eRSSSSSISlPSOSIS PSSS” j”lOlOlOlOlOjoJok: 


1863 
1864 
1865 
1870 
1880 
1890 
1900 
1910 
1920 
1922 
1924 
1926 
1928 
1929 
1930 
1932 
1933 
1934 
1940 
1950 
1960 


REM * DEFINICION DE CARACTERES * 
REM SOMOS SISSI SSSISIOIOIOIOIOJOK 
REM 
FOR A=0 TO 47 

READ B 

POKE A+USR "A",B 
NEXT A 
RETURN 
DATA 0,24,60, 24,24,24,126,0,0,90,90 
DATA 126,126,126,126,0,0,80,112,104 
DATA 60,94,108,0,0,24, 44,118,560, 24 
DATA 126,0,0,16,56,16,68,124,124,0 
DATA 0,90,90,90,90,126,126,0 
REM 
REM daSSSIS SISMOS ISS lESlSOIOIOJOK: 
REM * CONTROL JOYSTICK * 
REM dSS ISSO lO Ill lSSROIMIOIOIOJOK 
REM 
LET STICK=IN 223 
IF STICK=2 THEN LET XJ=XJ-(1 AND XJ>1) 
IF STICK=1 THEN LET XJ=XJ+(1 AND XJ<8) 


1970 IF STICK=4 THEN LET YJ=YJ+(1 AND YJ<8) 

1980 IF STICK=8 THEN LET YJ=YJ-(1 AND YJ>1) 

1990 IF STICK=16 THEN IF ST=1 THEN BEEP .1,40: GO TO 2090 
2000 IF STICK=16 THEN IF ST=0 THEN BEEP .1,-40: GO SUB 2040 
2010 PRINT AT YJ,XJ; INK 7; PAPER VAL T$(YJ,XJ*3); BRIGHT 1;"X" 
2020 PRINT AT YJ,XJ; INK VAL TS$(YJ,XJ*x3-1); PAPER VAL T$(YJ,XJx*3); BRIGHT 1;T$(Y 
J,XJ*3-2) 

2030 GO TO 1940 

2040 LET X=XJ 

2050 LET Y=YJ 

2060 LET C$=-CHR$ (64+Y)+STR$ X+"-" 

2070 LET ST=1 

2080 RETURN 

2090 LET XF=XJ 

2100 LET YF=YJ 

2110 IF X=XF AND Y=YF THEN LET ST=0: GO TO 1830 

2120 LET C$=C$+CHR$ (64+YF)+STR$ XF 

2130 LET ST=0 

2140 PRINT AT 20,0; "JUGADA: ";C$ 

2150 GO TO 670 

2151 REM 

2152 REM AsSSS SS SSI jSjPlS SIS lSlOIOIOlOj”lSIOlO OK 

2160 REM * CORONACION DE UN PEON x 

2162 REM ddddiRalRSlSRSSSl”SlS ll SOOlSISIEIOJOKOK 

2163 REM 


2170 
2180 
2190 
2200 
2210 
2220 
$="A" 
2230 
2240 


Á 2250 


IF T=0 THEN GO TO 2240 

IF YF=1 THEN GO TO 2200 

RETURN 

INPUT "T/C/A/D ?"; LINE Z$ 

IF Z$<>"T" AND Z$<>"C" AND Z$<>"A" AND Z$<>"D" THEN GO TO 2200 

LET T$(Y,Xx*3-2)=(CHR$ 149 AND Z$="T")+(CHR$ 146 AND Z$="C")+(CHR$ 147 AND Z 


)+(CHR$ 149 AND Z$="D") 
RETURN 
IF YF=8 THEN GO TO 2200 


RETURN 
N 


ESTUDIO DE 
VIABILIDAD 


STE estudio realiza 
una aproximación 
global a nivel de un 
dominio de actividad 
de la empresa (pro- 
ducción, personal, 
etc.). Con el estudio 
de viabilidad se llega 
a determinar los elementos que han de 
ser tenidos en cuenta para la definición 
de las soluciones funcionales y técnicas 
sobre el dominio considerado dentro del 
esquema global concebido para el con- 
junto de la empresa. Se concibe el «plan- 
masa» de las aplicaciones a desarrollar 
en ese dominio empresarial con mayor 
coherencia global y con economía de 
estudios de detalle. 

Normalmente un estudio de viabilidad 
se desarrolla en cuatro fases sucesivas: 
una primera de observación, otras dos 
posteriores de concepción y organiza- 
ción de las soluciones, para concluir con 
una fase de validación. Veamos con más 
detalle cada una de estas fases: 


a) Fase de observación. 


Se trata de examinar el área corres- 
pondiente hasta su definición concep- 
tual (lo más exhaustiva posible). Hay que 
realizar una labor sistemática de estruc- 
turación y selección de los elementos a 
considerar, para establecer un adecua- 
do diagnóstico sobre el área conside- 
rada. 

Al concluir esta fase de observación, 
todas las personas participantes en ella 


TECNICAS DE ANALISIS 


FASES DE LOS ESTUDIOS INFORMATICOS (II) 


(los componentes del grupo director del 
proyecto) han de estar de acuerdo en 
varios aspectos básicos: 


— los límites exactos del campo de vi- 
sion del estudio que se esta desarrollan- 
do; 


— el subconjunto de este campo de 
estudio que parece más representativo 
para la aplicación del «plan-masa» que 
se va a establecer; 


— la definición y valoración de los 
procedimientos existentes y del siste- 
ma de información sobre el que se apo- 
yan, y 

— las orientaciones a primar para 
concebir las hipótesis de las soluciones 
futuras. 


b) Fase de concepción. 


Se trata de establecer las soluciones 
conceptuales en el dominio objeto del 
estudio y su articulación en soluciones ló- 
gicas que luego (en la tercera fase) se- 
rán desarrolladas y articuladas en deta- 
lle. 


Es importante sentar las bases para el 
desarrollo de las soluciones correspon- 
dientes antes de abordar esta fase. Es 
útil, por tanto, que el equipo director de- 
cida entre varias posibilidades alternati- 
vas, basadas en los modelos conceptua- 
les y lógicos correspondientes, en los si- 
guientes aspectos: 


— reglas operativas nuevas, informa- 
ciones que van a manejar; 


— reparto de carga a efectuar en la 
ejecución de estas reglas y en la gestión 


de la información entre las diferentes uni- 
dades geográficas o funcionales (la di- 
rección regional, el servicio de personal, 
etc.); 

— utilización de técnicas específicas, 
desde el punto de vista informático: ta- 
reas conversacionales, tratamientos por 
lotes, etc.; 

— orientaciones a primar en cuanto a 
puesta a disposición del proyecto, de 
medios informáticos (telemática, mi- 
croinformática, software standard, etc.). 


c) Fase de organización. 


El objetivo a obtener en esta fase es la 
implementación de una solución (arqui- 
tectura del sistema, estructura organiza- 
tiva, limitaciones a tener en cuenta, 
etc.). 

Es importante, durante el desarrollo de 
esta fase operativa, validar un conjunto 
de aspectos básicos: 


— Organización prevista del trabajo 
en los servicios involucrados, impacto so- 
bre las organizaciones, etc.; 

— estructura general de la organiza- 
ción de los datos en ficheros y bases de 
datos; 

— estructura general del software 
(programas y aplicaciones) que será ne- 
cesario preparar; 

— limitaciones y condiciones de tra- 
bajo impuestas a (o desde) los servicios 
de explotación informática (seguridad, 
horarios limitados en teletratamiento, fe- 
chas, etc.). 


d) Fase de validación. 


Se establecen los planings de trabajo 
y sus correspondientes presupuestos así 
como se organizan las tareas a realizar. 
Con el desarrollo de esta fase y los pre- 
supuestos económicos detallados que se 
elaboren, el comité director debe tomar 
su decisión respecto de: 


— la aceptación final de todas o par- 
te de las soluciones propuestas; 

— la descomposición en subproyec- 
tos consecutivos o paralelos de desarro- 
llo de aplicaciones; 


— el planing de los estudios detalla- 
dos, de las realizaciones y puestas en 
marcha correspondientes; 

— la aceptación de los presupuestos 
correspondientes a los subproyectos y 
tareas aceptados. 
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[A Ciclo del «Estudio de viabilidad». 


IL Programación 
- modular 


(continuación) 


N el lenguaje BASIC 
es recomendable ha- 
cer el mayor uso po- 
sible de la programa- 
ción modular, al me- 
nos en la escasa pro- 
porción en que este 
lenguaje la permite. 
Para ello, todo programa debe distinguir 
claramente lo que podríamos llamar el 
«programa principal» de todas aquellas 
partes (subprogramas o módulos) cuya 
ejecución puede desencadenarse des- 
de distintas partes del programa, o inclu- 
so de aquellas otras que, aun no utilizán- 
dose más que en un solo punto, pudiera 
ser conveniente separar, ya sea porque 
constituyen un todo cerrado o por otras 
razones semejantes. 

Naturalmente, siempre es posible pres- 
cindir de la programación modular y 
construir nuevos programas, haciendo 
uso exclusivo de las instrucciones de 
control que hemos visto en capítulos an- 
teriores. Sin embargo, esto no es aconse- 
jable, porque dificulta la comprensión de 
los programas. Veamos un ejemplo. 

Supongamos que tenemos el progra- 
ma BASIC representado por el organigra- 
ma siguiente: 


TECNICAS 
DE PROGRAMACION 


donde cada uno de los bloques rectan- 
gulares no representa una sola instruc- 
ción, como en organigramas anteriores, 
sino conjuntos de instrucciones que lla- 


maremos con las letras A, B, C,Dy E, y 
que pueden contener bucles, instruccio- 
nes condicionales, etc. Se observará que 
el conjunto de instrucciones B está repe- 
tido en nuestro programa en tres sitios di- 
ferentes. Como es natural, sería una 
pena (y un gasto innecesario de memo- 
ria y de mecanografía) escribirlo tres ve- 
ces completas. Por tanto, debemos bus- 
car una manera de conseguir escribirlo 
una sola vez. 

La primera solución que podría ocurrír- 
senos viene representada por el organi- 
grama siguiente: 


donde se supone que la variable | es nue- 
va, que no tomaba parte en ninguna de 
las secciones del programa anterior. 


Esta solución no es aceptable. Es ver- 
dad que se consigue lo que se deseaba 
(B aparece una sola vez), pero a costa 
de complicar excesivamente la estructu- 
ra del conjunto. Además, imagínese que 
existen otras secciones del programa a 
las que se pueda aplicar, asimismo, esta 
reducción. El organigrama se complica- 
ría entonces hasta extremos inadmisi- 
bles. 

Veamos cuál es la solución correcta, 
utilizando la programación modular: 


Se observará que la estructura del pro- 
grama principal no se complica en este 
caso. Que cada bloque B ha sido sustitui- 
do por una sola instrucción (GOSUB N, 
donde N es una etiqueta nueva, adjudi- 
cada al módulo) y que el conjunto B apa- 
rece una sola vez, separado del progra- 
ma principal. Basta comparar esta figura 
con la anterior para darse cuenta de la 
ventaja de este método para mejorar la 


2 TECNICAS DE PROGRAMACIÓN 


facilidad de comprensión de nuestros 
programas. Además, si la situación se re- 
pitiera y nos viéramos en la necesidad 
de separar otro módulo, la estructura de 
nuestro programa no se complicaría. 

Otra razón que puede movernos a se- 
parar un módulo o subrutina, aun en el 
caso de que sólo se utilice una vez, es 
que dicho módulo realice una función 
que puede repetirse en un programa to- 
talmente diferente. En tal caso, sería bue- 
no tener programados todos los módulos 
de esta clase en un conjunto único, que 
utilizaremos como base cada vez que va- 
mos a construir un programa nuevo, y en 
cada caso nos limitaremos a eliminar los 
que no nos son necesarios para la apli- 
cación concreta que estamos progra- 
mando, añadiendo después el programa 
principal correspondiente. Por esta ra- 
zón, es conveniente asignar a los módu- 
los etiquetas muy altas, para que no in- 
terfieran con las de los programas princi- 
pales que nos puedan surgir. 

Entre las operaciones que puede tener 
sentido separar de todos los programas 
principales para constituir nuestra biblio- 
teca de módulos, podemos citar las si- 
guientes: 


— Aguardar a que se presione una te- 
cla y devolver en una variable de carac- 
teres el caracter correspondiente. 


5 REM Borrar la pantalla 
CcLS 


— Aguardar a que se presione una te- 
cla de función, ignorar las restantes y 
devolver en una variable numérica el 
número de la función correspondiente. 


— Pedir un dato numérico al teclado, 
comprobar que está dentro de ciertos lí- 
mites y devolver en una variable numéri- 
ca el valor obtenido. En caso contrario, 
escribir un mensaje de error apropiado y 
volver a pedir el dato. 


— Borrar áreas determinadas de la 
pantalla. 


— Guardar en un fichero en disco los 
valores de ciertas variables. 


— Recuperar de un fichero en disco 
los valores de ciertas variables. 


— Realización de ciertas operaciones 
aritmeticas muy frecuentes. 


Se observará que se trata, casi siem- 
pre, de operaciones de entrada o salida 
de datos por dispositivos periféricos. Vol- 
veremos sobre esto en capítulos poste- 
riores. 

En el tomo primero vimos un programa 
de animación muy sencillo, escrito en BA- 
SIC, que dibujaba en la pantalla un reci- 
piente con dos electrodos, de los que sa- 
lían burbujas móviles ascendentes. Va- 
mos a ver ahora una versión más comple- 
ta de este mismo programa, que utiliza la 
programación modular. 


REM Dibujar un recipiente lleno de agua 

LOCATE 10,20:PRINT CHR$(191)+SPACES (20) +CHR$ (218) 
LOCATE 11,20:PRINT CHR$ (179) +SPACES$ (20) +CHR$ (179) 
LOCATE 12,20:PRINT CHR$(179)+SPACES$ (20) +CHR$ (179) 
LOCATE 13,20:PRINT CHR$(195)+STRING$ (20, 196) +CHR$ (180) 
LOCATE 14,20:PRINT CHR$ (179) +SPACES$ (20) +CHR$ (179) 
LOCATE 15,20:PRINT CHR$(179)+SPACES$ (20) +CHR$ (179) 
LOCATE 16,20:PRINT CHR$(179)+SPACES$ (20) +CHR$ (179) 
LOCATE 17,20:PRINT CHR$(179)+SPACES$ (20) +CHR$ (179) 
LOCATE 18,20:PRINT CHR$(192)+STRING$ (20, 196) +CHR$ (217) 


Dibujar las opciones a elegir 


1: Un tubo cerrado, invertido y sumergido en el líquido 
2: Un tubo abierto sumergido en el liquido 


3: Una jeringuilla (animación) 


O: Fim del juego 
X=4:LET Y=50:GOSUB 1000 
X=4:LET Y=60:GOSUB 1200 


X=4:LET Y=70:GOSUB 1200:GOSUB 1400 
2 


LOCATE 12,53: PRINT"1 
REM Elegir opción 
LOCATE 1,1 


PRINT"Elige un número (1,2,3,0) presionando la tecla correspondiente” 
REM Leer un número (1,2,3,0) del teclado 

LET A$=INKEYS$: IF A$="" THEN 210 

REM Comprobar que la opción elegida es correcta 

IF A$<>"1" AND A$<>"2"” AND A$<>"3" AND A$<>"0" THEN 210 


REM Transferir control, según la opción elegida 
ON ASC(A$)-47 GOTO 999,300, 400,500 

REM Primera opción: tubo cerrado 

LET X=4:LET Y=50:GOSUB 1600 


310 - 
320 
330 
399 
400 
410 
420 
430 
499 
500 
510 
520 
530 
535 
540 
550 
560 
899 
900 
910 
920 
930 
$77 
1000 


LET X=10:LET Y=28:GOSUB 1000 
LOCATE 16,29:PRINT STRING$ (4,196) 
GOTO 900 
REM Segunda opción: tubo abierto 
LET X=4:LET Y=60:GOSUB 1600 
LET X=10:LET Y=28:GOSUB 1200 , 
LOCATE '13,29:PRINT STRING$ (4,196) 
GOTO 900 
REM Tercera opción: jeringuilla 
LET X=4:LET Y=70:GOSUB 1600 
LET X=10:LET Y=28:GOSUB 1200:GOSUB 1400 
LOCATE 16,29:PRINT STRING$ (4,196) :LET K=0:LET K1=1+RNDAS:LET Z=16 
FOR J=1 TO K1:GOSUB 1900: GOSUB 1800: LET X=X+1: GOSUB 1400: GOSUB 2000 
NEXT J 
LET K=7-K1 
FOR J=1 TO K1:GOSUB 1900: GOSUB 1800: LET X=X-1: LET Z=Z-1: GOSUB 1400 
LOCATE Z,Y+1: PRINT STRING$ (4,196): NEXT J 
REM Opción terminada. ¿Continuamos? 
LOCATE 1,1:PRINT SPACE$(80):LOCATE 1,1:PRINT "¿Otra vez? (s/n)" 
LET A$=INKEYS$: IF A$="" THEN 910 
IF A$<>"s" AND A$<>"n" THEN 910 
IF A$="s" THEN 10 
END 
REM Pintar el tubo cerrado 


1010 LOCATE X,Y:PRINT CHR$(218)+STRING$ (4, 196) +CHR$ (191) 


1020 


LOCATE X+1,Y:PRINT CHR$(179)+SPACES (4) +CHR$ (179) 


1030 LOCATE X+2,Y:PRINT CHR$ (179) +SPACES$ (4) +CHR$ (179) 
1040 LOCATE X+3,Y:PRINT CHR$(179) +SPACES (4) +CHR$ (179) 


1050 
1060 
1070 
1080 
1200 


LOCATE X+4,Y:PRINT CHR$(179)+SPACES (4) +CHR$ (179) 
LOCATE x+5,Y:PRINT CHR$(179)+SPACES$ (4) +CHR$ (179) 
LOCATE X+6,Y:PRINT CHR$(217)+SPACES (4) +CHR$ (192) 
RETURN 

REM Pintar el tubo abierto 


1210 LOCATE X,Y:PRINT CHR$(191)+SPACES$ (4) +CHR$ (218) 


LOCATE X+1,Y:PRINT CHR$(179)+SPACES$ (4) +CHR$ (179) 


1230 LOCATE X+2,Y:PRINT CHR$(179)+SPACES$ (4) +CHR$ (179) 


LOCATE X+3,Y:PRINT CHR$ (179) +SPACES (4) +CHR$ (179) 
LOCATE X+4,Y:PRINT CHR$ (179) +SPACES (4) +CHR$ (179) 
LOCATE X+5,Y:PRINT CHR$(179)+SPACES (4) +CHR$ (179) 


1270 LOCATE X+6,Y:PRINT CHR$(217)+SPACES$ (4) +CHR$ (192) 


RETURN 

REM Pintar la jeringuilla 

LOCATE X-1,Y+2:PRINT CHR$(218)+CHR$(191) 

LOCATE X,Y+1L:PRINT CHR$ (218) +CHR$ (193) +CHR$ (193) +CHR$ (191) 
RETURN 

REM Borrar un tubo 

FOK 1=1 TO 8 

LOCATE X+1-2,Y:PRINT SPACES$(10) 

NEXT 1 

RETURN 

REM Borrar la jeringuilla 

LOCATE X-1,Y+2:PRINT SPACES (2) 

LOCATE X,Y+1:PRINT SPACES (4) 

FOR I=1 TO K:LOCATE X+I1,Y+1:PRINT SPACES (4):NEXT 1 

RETURN 

REM Retardo 

FOR I=1 TO 100:A4=2.5A2.S5:NEXT I:RETURN 

REM Burbujitas 

X1i=17:Y1=27 

FOR I=1 TO 3:X1=X1-1:LOCATE X!,Y1: PRINT "o":LOCATE X1,Y1+7:PRINT"o":NEXT 
Xx1=17 . 
FOR I=1 TO 3:X1=X1-1:LOCATE X1,Y1: PRINT " ":LOCATE X1,Y1+7:PRINT" ":NEXT. 
RETURN , 


y 


El programa dibuja una cubeta llena te en la cubeta y ver qué ocurre con el 
de agua, un tubo abierto por un extremo nivel del agua en el interior del tubo 
y cerrado por el otro, un tubo abierto por correspondiente. En el caso de la jerin- 
los dos extremos y una jeringuilla. Se tie- guilla se produce también un pequeño 
ne entonces la posibilidad de elegir uno efecto de animación, que hace ver 


de estos tres 


tubos, hundirlo parcialmen- cómo se expulsa el aire del interior del 
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tubo y cómo se aspira el líquido al subir 
de nuevo el émbolo. 

No vamos a explicar con detalle la 
construcción del programa, pues los mu- 
chos comentarios incluidos la harán evi- 
dente. Obsérvese, sin embargo, que este 
programa contiene los siete módulos o 
subrutinas siguientes: 


— Etiqueta 1000. Dibuja un tubo cerra- 
do en la posición de la pantalla definida 
por las variables X (línea) e Y (columna). 
Este módulo se utiliza dos veces a lo lar- 
go del programa. 


— Etiqueta 1200. Dibuja un tubo abier- 
to en la posición de la pantalla definida 
por las variables X (línea) e Y (columna). 
Este módulo se utiliza cuatro veces a lo 
largo del programa. 

— Etiqueta 1400. Dibuja el émbolo de 
la jeringuilla en la posición de la panta- 
lla definida por las variables X (línea) e Y 
(columna). Este módulo se utiliza cuatro 
veces a lo largo del programa. 

— Etiqueta 1600. Borra un tubo de la 
posición de la pantalla definida por las 
variables X (línea) e Y (columna). Este 


módulo se utiliza tres veces a lo largo del 
programa. 

— Etiqueta 1800. Borra el émbolo de la 
jeringuilla de la posición de la pantalla 
definida por las variables X (línea) e Y 
(columna). Este módulo se utiliza dos ve- 
ces a lo largo del programa. 

— Etiqueta 1900. Utilizado durante la 
animación, produce un retardo o tiempo 
muerto para que el movimiento no sea 
excesivamente rápido. Este módulo se 
utiliza dos veces a lo largo del programa. 

— Etiqueta 2000. Dibuja las burbujas 
que salen de la jeringuilla al presionar el 
émbolo. El movimiento de estas burbujas 
constituye la animación propia de este 
programa. Este módulo se utiliza una sola 
vez a lo largo del programa (dentro de 
un bucle), pero era conveniente separar- 
lo, pues realiza una acción independien- 
te y completa en sí misma. 


El programa anterior está escrito para 
IBM PC y compatibles. Sin embargo, los 
cambios indicados en la versión del 
tomo 1 para AMSTRAD, COMMODORE y 
MSX son también aplicables aquí, sin de- 
masiado esfuerzo. 


UALQUIER organiza- 
ción moderna de- 
pende de sus recur- 
sos de procesos de 
datos tanto como del 
resto de sus compo- 
nentes. En la medida 
en que una empresa 
va convirtiendo sus tareas manuales en 
aplicaciones para ordenador, pasa a ser 
más eficiente y productiva. Esta relación 
está basada esencialmente en los datos 
que soportan y manejan estas aplicacio- 
nes. 

Proporcionar el acceso a los datos que 
una organización genera y emplea supo- 
ne una continua y significativa inversión 
en desarrollo de programas, manteni- 
miento, equipos de proceso y almacena- 
miento de datos, terminales de usuario y 
servicios de comunicación. Es necesario 
tomar medidas adecuadas para conse- 
guir que el acceso a.los datos sea senci- 
llo, rápido y controlable para asegurar 
un uso correcto de los datos de la orga- 
nización. La combinación del hardware, 
el software y los procedimientos para de- 
jar los datos preparados para ser utiliza- 
dos se denominan normalmente: ENTOR- 
NO DEL SISTEMA DE DATOS. 

La forma más normal de abordar el tra- 
tamiento de datos es mediante el uso de 
bases de datos. Es, como siempre en in- 
formática, difícil encontrar una definición 
universal de base de datos. Sin embargo, 
el concepto descrito por todas las defini- 
ciones es muy similar. Una base de datos 
puede considerarse: 


APLICACIONES 


INTRODUCCION A LAS BASES DE DATOS 


«El conjunto de datos no redundantes, 
interrelacionados, con posibilidad de ser 
procesados por una o más aplicacio- 
nes.» 


Esta definición formal contiene la esen- 
cial del concepto de base de datos, fren- 
te a las características de fichero con- 
vencional: 


— No redundantes. Significa el mínimo 
número de elementos para proporcionar 
la entrada a los programas de aplica- 
ción. Como consecuencia de ello el nú- 
mero de un cliente sólo figurará una vez 
en la base de datos, aunque todos los 
programas de aplicación tengan que 
acceder a ese dato. 

— Interrelacionados. Supone que los 
datos de unos campos están relaciona- 
dos con otros por apuntadores, tablas o 
claves. 

— Procesables por varias aplicacio- 
nes. Se refiere al entorno informático ac- 
tual en que cientos de usuarios en dife- 
rentes terminales necesitan acceder a 
datos comunes para propósitos diferen- 
tes. 
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O) 


BASE DE 
DATOS 


O Evolución histórica 


En un principio, los registros de datos se 
agrupaban en ficheros y estos ficheros 
eran creados y mantenidos por cada 
aplicación que se ejecutaba en el orde- 
nador. Los contenidos de un fichero y su 
mantenimiento eran responsabilidad del 
grupo de usuarios por los que había sido 
desarrollada la aplicación. Cuando la 
mayor parte del trabajo realizado era 
manual y el uso del ordenador era pe- 
queño, esta forma de funcionar propor- 
cionaba buenos resultados. A medida 
que fue creciendo el número de datos a 
manejar y el número de aplicaciones 
que los usaban aparecieron problemas 
causados por esta metodología. En ella 
se disponía de ficheros por aplicación y 
por ello: 


— Aparecían datos duplicados en di- 
ferentes ficheros. 


— Los contenidos de estos datos re- 
dundantes podrían ser distintos de un fi- 
chero a otro. Ello generaba la posibilidad 
de falta de consistencia en los datos del 
sistema. 

— La tarea de resumir y consolidar los 
datos para efectuar tareas de gestión se 
dificultaba enormemente a media que el 
número de ficheros crecía. 


— los datos y los programas eran 
enormemente dependientes. Un cambio 
en el formato de un campo suponía re- 
hacer y actualizar todos los programas 
implicados. 

— Algunos programas incluso estaban 
diseñados para dispositivos físicos espe- 
cíficos, y al cambiar éstos por otros más 
modernos, los programas dejaban de 
funcionar. 


Todas estas condiciones hacen que los 
programas de aplicación estén en cons- 


tante cambio y se desperdicien recursos, 
tanto económicos, personales como de 
almacenamiento. La solución a los pro- 
blemas generados por la existencia de 
múltiples ficheros de datos es combinar 
estos ficheros de datos en bases de da- 
tos comunes. 


( Bases de datos 


Existen tres formas fundamentales de 
establecer las relaciones entre los datos 
de una base de datos. Estos tres modelos 
determinan el tipo de base de datos y su 
funcionamiento. 


— En primer lugar, el modelo en red 
que mantiene una estructura de malla 
entre los datos con apuntadores entre los 
campos de los registros. 


— Un segundo modelo es el jerárqui- 
co, donde las relaciones entre registros 
mantienen una dependencia «padre-hi- 
jo». 


— Por último, las de más reciente apa- 
rición y de mayor potencia son las bases 
de datos relacionales. Estas basan su es- 
tructura y funcionamiento en el manteni- 
miento dae tablas y relaciones entre los 
datos. Las consultas se efectúan aplican- 
do funciones básicas sobre los datos, y 
con ellas se generan nuevas tablas, que 
son los resultados. La estructura elemen- 
tal de trabajo es la relación entre datos 
por tablas. 


EMPLEADO 


DIRECCION DEPARTAMENTO 


La forma de crear bases de datos con- 
siste en definir con claridad los campos 
de que consta cada registro e identificar 
las relaciones que existen entre éstos. En 
el caso jerárquico se establece una es- 
tructura de tipo arbórea, que refleja las 
dependencias de un registro con sus «hi- 
jos», etc. Los datos se relacionan por 
apuntadores que «señalan» a sus corres- 
pondientes relacionados. Los datos es- 
tán representados tal y como los ven los 
programadores y no como se encuen- 
tran físicamente en el disco. Se generan 
los segmentos de datos y se establecen 
las relaciones de parentesco. Cuando un 
registro no tiene padre se le considera el 
registro raíz y contiene la clave que iden- 
tifica un registro que es función de todos 
sus descendientes. 

En el caso de las bases de datos rela- 
cionales, los datos aparecen en forma 
tabular y los usuarios pueden tener acce- 
so a ellos desde distintas vistas. Existen al- 
gunas reglas básicas que definen si una 
base de datos es totalmente relacional o 
no lo es. De entre ellas destacan: 


1. Toda la información de una base 
de datos relacional se representa en el 
nivel lógico de una única manera: por 
valores en tablas. 


2. Todos y cada uno de los datos de 
una base de datos relacional deben te- 
ner la garantía de ser accesibles me- 
diante la combinación de un nombre de 
tabla, una clave primaria y un nombre de 
columna. 


'O Consideraciones adicionales 


Una vez introducido el concepto de 
base de datos, y comentados brevemen- 
te algunos de los tipos básicos, pasamos 
a citar algunos puntos interesantes sobre 
las bases de datos. 

Como ya hemos comentado, no existe 
una definición ampliamente aceptada 
de lo que es una base de datos. Del mis- 
mo modo tampoco está claramente de- 
finida la estrategia a seguir a la hora de 
desarrollar una base de datos. En este 
sentido, el concepto de base de datos 
guarda una estrecha relación con la no- 
ción de sistema de gestión de informa- 
ción. Es decir, considerar la información 
como un bien más de la empresa. Ello 
obliga a desarrollar bases de datos que 
permitan a los usuarios acceder a esos 
datos y facilitar vías de acceso rápidas 
para las aplicaciones. Esta forma de con- 
cebir una base de datos, se ha revelado 
muy difícil de realizar en la práctica. Al- 
gunos de los problemas no están origina- 
dos por la técnica, sino por la estructura 
organizativa: 


— Problemas organizativos, debidos a 
la forma de compartir los datos. 

— Los causados por la necesidad de 
incorporar un nuevo papel en la empre- 
sa: el administrador de bases de datos. 
Además, es necesario conseguir que 
esta figura quede perfectamente inte- 
grada en la estructura ya existente. 

— la carencia de normas y procedi- 
mientos estándares eficaces para la ges- 
tión y el manejo de los datos. 

— la incapacidad de las empresas 
para prever a largo plazo la evolución de 
su «arsennal» de datos. 

— la negativa de los directivos a in- 
vertir a largo plazo, cosa que las bases 
de datos requieren. 


Al margen de toda esta problemática, 
cuando se plantea el análisis y el diseño 
de una base de datos es esencial que se 
determine con gran exactitud para qué 
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se necesita esa base de datos. Es nece- 
sario tener en cuenta que una base de 
datos no es otra cosa que una parcela 
del mundo real que vamos a representar 
mediante conjuntos de caracteres. Esta 
fase de definición es crítica a la hora de 
preparar la base de datos. Debe tenerse 
en cuenta qué datos son los verdadera- 
mente necesarios para describir esa par- 
te de la realidad que queremos identifi- 
car con exactitud. 

Normalmente, incluso los mismos usua- 
rios que participan en el proceso no sa- 
ben discernir si vale o no la pena incluir 
determinada información, o si es técnica 
o económicamente viable incorporarla a 
la base de datos. Para resolver este con- 
flicto es necesario reconocer que una 
cosa es la planificación y otra muy distin- 
ta la construcción práctica del sistema. 
La construcción se realiza de forma gra- 
dual. Una vez tomadas las elecciones de 
las aplicaciones en concreto, aparece- 
rá la necesidad de los datos. Por ello, 
corresponde al diseño (modelo de da- 
tos) de la base de datos la misión de 
aportar el marco unificado que garanti- 
ce que todo nuevo dato encajará per- 
fectamente en el conjunto. 

Una posible orientación a seguir es, 
pues, incluir en el plan general (es decir, 
en el diseño del modelo de datos) todo 
cuanto pueda resultar de utilidad, pero 
cuidar de justificar su inclusión en la base 
de datos real. 


La consideración de los objetivos co- 
merciales estratégicos de la compañía y 
de la repercusión que éstos puedan te- 
ner sobre las diversas actividades de la 
firma es de gran ayuda para calibrar qué 
aspectos pueden resultar importantes y 
cuáles no en una determinada base de 
datos. Es más, si se llega a relacionar de- 
terminados elementos del proyecto o 
modelo de datos con aspectos de la es- 
trategia comercial, se estará en óptimas 
condiciones para entablar diálogo con 
la dirección. 


. Resumen 


Como resumen podemos indicar que 
la construcción de las bases de datos 
como un modelo a escala de la realidad 
nos ayuda a centrar la atención en algu- 
nos de los objetivos más importantes de 
una base de datos. Uno de ellos es el de 
permitir manejar los datos como si de un 
bien se tratara. Por ello, es importante 
conservar los mismos datos para utilizar- 
lo en nuevos propósitos, sin necesidad 
de construir nuevas bases de datos. Esta 
idea debiera hacer replantearse la cues- 
tión a los responsables de gestión de in- 
formación, tendiendo a cuidar más el 
mantenimiento y gestión de los datos 
que la aparición de nuevas aplicacio- 
nes. 


PASCAL 


Mm Listas 
encadenadas 
(continuacion) 


UANDO introdujimos 
el concepto de alma- 
cenamiento dinámi- 
co, mencionamos 
como ejemplo los ca- 
sos en que hay que 
guardar en memoria 
muchas fichas para 
ordenarlas según un criterio dado y no se 
sabe a priori el número de éstas con que 
se va a trabajar. 


program Crealista; 


Con las operaciones básicas de mane- 
jo de listas encadenadas que hemos vis- 
to, escribir un programa de ordenación 
por el método de selección directa sería 
muy sencillo: bastaría, en primer lugar, 
con ir leyendo los datos de cada ficha y 
añadirla a una lista; el procedimiento de 
ordenación de la lista, propiamente di- 
cho, sería muy parecido al de una tabla, 
pues lo que, en la ordenación de éstas, 
eran los dos índices empleados para re- 
correrlas, aquí serían dos punteros que 
iían recorriendo la lista. 

Veamos cómo podrían ser los procedi- 
mientos para leer y mostrar los datos de 
las diferentes fichas. 


const 


de letras por nombre %X) 


char; 


- 


E 


Long = 12; (kx Máximo número 
type 
Nombre_t = array [1..Long] of 
Punt_E€ = “Fieha €s 
Ficha_t = record 
Nombre, 
Apellidol, 
e Apellido2 : Nombre_t; 
Nota_A, 
Nota_B, 
Nota_C : real; 
Siguiente : Punt_ 
end; 
var 
Primera Punt_t; 
A o 


procedure LeeDatos (var Primi: Punt_t); 


(x 
(x 


var 
Pp 2 Punt_t3 

N : Nombre_t; 
Fin : boolean; 


begin 


Pide datos y los guarda en una lista 
que queda apuntada por Primi. 


writeln (*”Para acabar, introduzca como nombre 0.?”); 
writeln ("Comience a introducir datos.”); 


Primi := nil; 


repeat 

witeln; 

write (*Nombre: 
¿== (NC1J 
then 


Fin 
if not Fin 
begin 
new (P):; 
with P" 
begin 


>0*); 


do 


(kx Crea una lista vacia. %*) 


?); readlin (N); 


*x) 
kx) 


(kx Crea una nueva ficha. 
(* Rellena la ficha. 


ss PASCAL 


Nombre := N; 
write (*”Primer apellido: 
write (*Segundo apellido: ?” 
writeln; 

write (*Nota A: 
write ("Nota B: 
write (*Nota C: 


”)3 readln 
”?); readlin 
”); readlin 
Siguiente := Primi; (x 

Primi := P 

end 

end 

until Fin 


procedure Presenta (Primi:z Punt_t); 


Añade la ficha a la lista. 


(Apellido1); 
(Apellido2); 


)3 readln 
); readlin 


(Nota_A); 
(Nota_B); 
(Nota_C); 


x) 


1 
(x Presenta el contenido de la lista apuntada por Primi. X) 


var Actual: Punt_t; 
begin 
Actual := Primi; 


while Actual <> nil do with Actual 
begin 
writeln; 
writeln (Nombre, ”* 
writeln (*Nota A: 
writeln (*Nota B: 
writeln ("Nota C: 


” Apellido,” 


Actual := 
end 
end; 


Sia:iiiente 


RO o 
begin 

LeeDatos (Primera); 

Presenta (Primera) 

end. 


O Listas ordenadas 


Si se quisiera insertar un nuevo elemen- 
to en medio de una tabla, habría que ha- 
cer sitio primero, desplazar todos los ele- 
mentos posteriores un lugar hacia atrás y 
almacenar aquél en la tabla; a medida 
que la tabla y la cantidad de información 
contenida en cada ficha se fuese ha- 
ciendo mayor, el tiempo que necesitaría 
el ordenador se iría incrementando. 


procedure LeeDatos (var Primi: 


(x 
(k 


Pide datos y los guarda en 


var 
z Punt_t3 
: Nombre_t; 
z boolean; 


procedure Insertar; 
(k Coloca la ficha P” en el sitio correspondiente X*) 


(kx de la lista apuntada por el puntero Primi. 


begin 


cx ESTA DESCRITO EN SIT 


do 


*,Apellido2); 


> ¿Nota_A :20:1)3 
*¿Nota_B :24:21)3 
”¿Nota_C 24:1)>»3 


Insertar un elemento en una lista es 
cuestión de retocar unos pocos punteros 
y poco más, la cantidad de operaciones 
necesarias es independiente del tamaño 
de la lista. El problema de leer unas fi- 
chas y ordenarlas se puede resolver de 
una manera mucho más eficiente si cada 
vez que se lean los datos de una ficha 
nueva, en lugar de añadirla por delante 
de la lista, se inserta en el lugar que le 
corresponda directamente. El procedi- 
miento LeeDatos sería: 


Punt_t); 


uma lista x) 


ordenada que queda apuntada por Primi. 


x) 


IO APARTE, VEASE EL TEXTO 


begin 
writeln 
writeln 


("Para acabar, 


writeln; 
write (*Nombre: 
Fin := (NC1I = 
if not Fin then 
begin 
new (P); 
with P? do y; 
begin 
Nombre 
write 
write 
writeln; 
write (*Nota A: 
write (*Nota B: 
write (*Nota C: 
end; 


0 


:= N; 
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2.9: 


Insertar 
end 
until Fin 
end; 


El procedimiento Insertar debe recorrer 
la lista hasta encontrar el elemento que 
deba situarse por detrás del que quere- 


procedure Insertar; 


(kx Coloca la ficha P” en el 


(*x de la lista apuntada por el puntero Primi. x) 
var 
Actual : Punt_t; 
EsMenor: boolean; 
Aux i e Ficha_t3 
begin 
A áQ A A A A A A AA A A A A A A A AA x) 


(kx Recorrer la lista hasta encontrar la primera ficha x) 
(Xx que deba ir por detrás de P” o hasta llegar al final: kx) 
<q A A A A A A A A A A A A e x) 
Actual := Primi; 
EsMenor:= false; 
while (Actual <> nil)> and not EsMenor do 
14 Actual”.Nota_A < P”.Nota_A then EsMenor := true 

else Actual := Actual”.Figuiente; 
o — >_ A A A A A A A A A A A A A A A A A A A A x) 
(R Añadir P” por delante de la t+ticha encontrada o al x) 
(* final si no existe: . x) 
A q A A A A A AA A A A A A A A A A A A A A A A A A A A A A x) 


EsMenor then 


begin 
Auo:i == Pos 
F ¿= Áctual”; 


Aaux1.Siguiente := 
Actual”:= Auxi 
end 
else 
begin 


(* vs, VEASE DE NUEVO 
end 


end; 


33 


(*Primer apellido: 
(*Segundo apellido: 


readln 
readln 
readln 


(k insertar por delante de Actual” *) 


(xk 


EL - TEXTO 22 


introduzca como nombre 0.”); 
(”Comience a introducir datos.?”); 


(kx Crea una lista vacía. 


readln (N); 


x) 
x) 


(kx Crea una nueva ficha. 
(kx Rellena la ficha. 


(Apellidoi); 
(Apellido2); 


”?); readlin 
?); readlin 


(Nota_A); 
(Nota_B); 
(Nota_C) 


(k Inserta la ficha P” X) 


mos añadir para, a continuación, insertar 
este por delante. 


sitio correspondiente X*) 


insertar tras la última  X) 


x) 
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Si no hay ninguna ficha que deba que- 
dar por detrás de la nueva, ésta debe- 
mos ponerla detrás de la hasta entonces 
última, pero como esa situación se de- 
tecta cuando el puntero Actual vale NIL, 
ya no es posible retocar su campo Si- 
guiente. Debemos recorrer la lista guar- 
dando en cada momento un puntero 
que apunte a la ficha anterior a la actual. 

Cuando se vaya a introducir la primera 
ficha de todas, Primi vale NIL, por lo que 
no se llega a ejecutar ni una vez el bucle 


procedure Insertar; 
í* Coloca la ficha P” 


WHILE; esta situación se puede detectar 
luego porque es el único caso en que 
Previa puede ser NIL. 

Una vez esté incluido este procedi- 
miento en LeeDatos, y éste, a su vez, 
haya reemplazado a su homónimo del 
programa Crealista, observaremos que 
las fichas introducidas se presentan orde- 
nadas según el valor del campo Nota-A 
sin haber ejecutado realmente un proce- 
dimiento de ordenación. 


en el sitio correspondiente X*) 


(*k de la lista apuntada por el puntero Primi. x) 


var 
Actual, 
Previa : Punt_t; 
EsMenor: boolean; 
Aux i 2 Ficha_t3 


begin 
Actual : 


Previa := 
EsMenor := 


Primi;z 
mil; 
false; 


while (Actual <> 


Actual; 


nil)> and not EsMenor do 
if Actual”.Nota_A < P”.Nota_A then EsMenor := 


true 


Actual”.Siquiente 


(k Añadir P” por delante de la ficha encontrada o al 
(X final si no existe: 


1f EsMenor then 
begin 
Aux i = 
p- pe 
Auxi.Siguiente 
Actual”:= Auxi 
end 
else 
if Previa <> 
begin 


P"; 
Actual”; 
:= P; 


nil then 


Previa”.Siguiente : 
nil 


P”. Siguiente := 
end 
else 
begin 
Primi := P; 
P".Siguiente := 
end 


mil 


(k insertar por delante de Actual” *) 


(kx insertar tras la última  X) 


= P; 


(kx P” es la primera ficha leida *) 


FORTRAN (y IV) 


O Sentencia 
GO TO» 


UNTO con el BASIC, el 
FORTRAN es de los po- 
cos lenguajes que 
disponen de instruc- 
ciones de bifurca- 
ción. Existe una gran 
polémica en el mun- 
do de la informática 
acerca de la conveniencia de los GO- 
TO's frente a algunos aspectos de la pro- 
gramación estructurada. Nosotros no en- 
tramos en esa discusión, limitándonos a 
mostrar el formato de la instrucción: 


GO TO num-sentencia 


Inmediatamente después el programa 
continúa su ejecución en la sentencia 
que tiene el mismo número (columnas 
1-5), que el indicado. 


'O Sentencia IF 


La sentencia IF permite realizar la bifur- 
cación a otra sentencia del programa 
siempre que se verifiquen algunas cir- 
cunstancias especificadas por el progra- 
mador. 

Existen dos formatos distintos de IF: arit- 
mético y condicional. Comenzaremos 
por este último. 


IF condición sentencia 


Donde condición es una de las expre- 
siones lógicas explicadas anteriormente, 
y sentencia es una instrucción cualquie- 


OTROS LENGUAJES 


ra, excepto un DO (se verá seguidamen- 
te) y otro IF. 

Si al evaluar la condición, ésta tiene 
como resultado .TRUE., se ejecutará la 
sentencia que se encuentra a continua- 
cion. 


IF expresión aritmética N1 N2 N3 


En el formato del IF aritmético. N1, N2 y 
N3 son números de sentencia que rela- 
cionan el IF con otras instrucciones del 
programa de la siguiente manera: Se cal- 
cula el valor de la expresión aritmética. 
Si éste es menor que cero se bifurcará a 
la sentencia N1l; si es igual a cero, a N2, 
y si es mayor se ejecutará la instrucción 
de número N3. 

Se puede observar que es equivalente 
a varios IF lógicos seguidos de GOTO's. 


O Sentencia DO 


Es muy normal que en un'mismo progra- 
ma se deba repetir varias veces un con- 
junto de sentencias. 

En FORTRAN esta iteración o bucle se 
consigue mediante la sentencia DO, y se 
conoce al conjunto de sentencias como 
rango del DO. 


DO n variable =|11, 12, 13 
rango del DO 
n CONTINUE 


Como se puede observar n es el núme- 
ro de sentencia de la instrucción CONTI- 
NUE, cuya única misión es defimitar el 
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rango del DO, especificar dónde termi- 
nan las instrucciones que se deben repe- 
tir. 

Variable es una variable entera llama- 
da índice del DO. Ñ 


11, 12 y 13 pueden ser constantes o va- 
riables enteras. 
Variable toma primero el valor de |1. Si 


su valor es mayor que |2, el DO no se eje- 
cuta. Si variable es menor o igual que 12 
se ejecutan las instrucciones que com:- 
ponen el rango del DO. 


Después de la ejecución el valor de 
variable se verá incrementado con el va- 
lor de 13 y se vuelve a efectuar la compa- 
ración. 


y EDICIONES y SIGLO y CULTURAL vy 


ON 


